﻿Public Class frmWysylkaData

    Private _dateValue As Date
    Public ReadOnly Property DateValue() As Date
        Get
            Return _dateValue
        End Get
    End Property



    Public Sub New()
        InitializeComponent()
    End Sub

    Public Sub New(ByVal shipmentDate As Date)
        InitializeComponent()
        dtpDataWysylki.Value = shipmentDate
    End Sub

    Private Sub btn_Accept_Click(sender As System.Object, e As System.EventArgs) Handles btn_Accept.Click
        _dateValue = dtpDataWysylki.Value.Date
        DialogResult = Windows.Forms.DialogResult.OK
    End Sub

    Private Sub btn_Cancel_Click(sender As System.Object, e As System.EventArgs) Handles btn_Cancel.Click
        DialogResult = Windows.Forms.DialogResult.Cancel
    End Sub
End Class